パソコン活用研究PCマニアックの道（アセンブラ、DOS、Windows、旧型PCの活用研究）

ＣＯＢＯＬの入手

１　ＣＯＢＯＬの入手

ＣＯＢＯＬは、パソコンで個人が使うような言語ではないので、ＦｒｅｅのＣＯＢＯＬコンパイラというのは
ほとんどみかけません。商用のＣＯＢＯＬの体験版などがＣＯＢＯＬベンダーのサイトからダウンロード
可能ですが、相当なフィアルサイズ（少なくとも１０ＭByte）になると思います。
近年の進化したＣＯＢＯＬを使ってみたいという方は探して見てください。

Sundayプログラマが、ちょっとＣＯＢＯＬもかじってみたいという程度でつかうなら、COBOL650（ＤＯＳ用）
というのがあります。これは Ansi-Standard ＣＯＢＯＬ Ver6.50 に準拠したＣＯＢＯＬです。
いってみれば、古典的なＣＯＢＯＬですか。
おじさんは、Ｎｉｆｔｙのプログラム言語フォーラム（ＦＰＬ）にあるのを見つけました。インターネット上では
見つからないようなので、ダウンロードできるようにしておきます。
おじさんも、ＦＯＲＴＲＡＮをかじったついでに、過去のプログラム言語の双璧のもう片方もすこし
さわってみようという軽い気持ちで、これをおとしてきました。
ダウンロード -->　Ｃｏｂｏｌ６５０　（約180ＫByte）


２　Ｃｏｂｏｌ６５０を使う

（１） Ｌｉｋｅｒの入手
Ｃｏｂｏｌ６５０にはＬｉｎｋｅｒがついてません。よってまず、１６Ｂｉｔ用のＬｉｎｋｅｒを各自調達して下さい。
おじさんは、昔のＭＡＳＭ（Ver3）についてるLink.exeがありましたので問題ありませんでしたが、ほとんどの
人が１６Bit用のＬｉｎｋｅｒを持ってないと思います。
おそらく使えるＬｉｎｋｅｒとしては、以下のようなものがあります。
Ｌａｓｍ（多摩ソフトのアセンブラ） のＬｉｎｋｅｒ 　Lid.exe
ＴｕｒｂｏＣのＬｉｎｋｅｒ　TLink.exe
ＬＳＩＣのＬｉｎｋｅｒ　　　Lid.exe
以上、動作の検証をしていませんが、おそらく使えると思います。もし、動作確認された方がいたら
ご報告いただけたら幸いです。（メールでも、掲示板でもどちらでも結構です）

（２）　環境設定
Ｌｉｎｋｅｒを調達したら、次は環境設定です。
Ｃｏｂｏｌ６５０は、ソースをＡドライブからしか認識しません。また英語モードでないと正常に動作しません。
従って、Ａドライブ以外にインストールして使用するなら、インストールしたドライブをSUBST で Ａドライブ
にみたててやる必要があります。

おじさんの例をあげます。おじさんは、C:\Cobol650 というフォルダで使用しています。
この場合は、以下のようなBatファイルを作成すればＯ．Ｋです。　　　

echo on
subst a: c:\cobol650
set path=c:\windows; c:\cobol650; a:\　　
us
a:

それでは、１から９までを表示するプログラム(test.cob)を作成して、コンパイル、リンク、実行ファイルの作成
までを行ってみます。

      IDENTIFICATION                 DIVISION.
        PROGRAM-ID.                    PROGTEST.
        ENVIROMENT                     DIVISION.
        DATA                           DIVISION.
        WORKING-STORAGE                SECTION.
        01  WORK-AREA.
            03  I                      PIC 9(05).
        PROCEDURE                      DIVISION.
        PROGTEST-START.
           MOVE    0                   TO  I.
           PERFORM PROGTEST-LOOP       UNTIL I > 9.　
           STOP RUN.
       *
        PROGTEST-LOOP.
           ADD    1                    TO I.
           DISPLAY    I.
        PROGTEST-LOOP-END.
           EXIT.

コンパイラはcobol.exe です。
cobol とコマンドを打ち込んでコンパイラを起動すると、なにやらCOBOL650の起動画面がでます。
「Ｅｎｔｅｒ」キーを押すと、起動画面が消えて、ソースファイル名入力待ち状態になりますので、ソース
ファイル名を入力して下さい。
OBJファイルが生成されます。
あとは、御手持ちのリンカーでライブラリ（COBOL650.lib）とリンクして実行ファイルを生成して下さい
以下、一連の流れです。

ＴｏｐＰａｇｅ